unit ErrorMessage;

interface

uses
  Classes, SysUtils, Controls,
  RaApplication, RaBase, RaControlsVCL, jpeg;

type
  TfrmErrorMessage = class(TRaFormCompatible)
    imgIllust: TRaImage;
    lblMessage: TRaLabel;
    btnConfirm: TRaBitButton;
    procedure FormShow(Sender: TObject);
    procedure btnConfirmClick(Sender: TObject);
  private
    { Private declarations }
  public
    Msg: string;
  end;

var
  frmErrorMessage: TfrmErrorMessage;

implementation

uses
  Units;

{$R *.dfm}

procedure TfrmErrorMessage.btnConfirmClick(Sender: TObject);
begin
  close;
end;

procedure TfrmErrorMessage.FormShow(Sender: TObject);
begin
  lblMessage.Caption := Msg;
end;

end.
